object AddQuotaForm: TAddQuotaForm
  Left = 412
  Top = 187
  ActiveControl = leQuotaName
  BorderStyle = bsDialog
  Caption = '%s Quota'
  ClientHeight = 393
  ClientWidth = 362
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ImageGenIcon: TImage
    Left = 15
    Top = 16
    Width = 32
    Height = 32
    AutoSize = True
    Picture.Data = {<image000.bmp>}
    Transparent = True
  end
  object btnOk: TButton
    Left = 178
    Top = 355
    Width = 75
    Height = 25
    Caption = '&OK'
    ModalResult = 1
    TabOrder = 3
    OnClick = btnOkClick
  end
  object btnCancel: TButton
    Left = 264
    Top = 355
    Width = 75
    Height = 25
    Cancel = True
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 4
  end
  object leQuotaName: TLabeledEdit
    Left = 69
    Top = 28
    Width = 272
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = 'Quota Name'
    TabOrder = 0
  end
  object gbTransferRate: TGroupBox
    Left = 18
    Top = 63
    Width = 325
    Height = 147
    Caption = 'Transfer Rate Limit'
    TabOrder = 1
    object Label2: TLabel
      Left = 18
      Top = 38
      Width = 50
      Height = 13
      Caption = 'Initial Rate'
    end
    object Label3: TLabel
      Left = 18
      Top = 91
      Width = 70
      Height = 13
      Caption = 'Reduced Rate'
    end
    object cmbInitRate: TComboBox
      Left = 16
      Top = 58
      Width = 293
      Height = 21
      DropDownCount = 12
      ItemHeight = 13
      TabOrder = 2
    end
    object rbBytes: TRadioButton
      Left = 113
      Top = 24
      Width = 66
      Height = 17
      Caption = 'Bytes/sec'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object rbBits: TRadioButton
      Left = 219
      Top = 24
      Width = 57
      Height = 17
      Caption = 'Bit/sec'
      TabOrder = 1
    end
    object cmbReducedRate: TComboBox
      Left = 16
      Top = 109
      Width = 293
      Height = 21
      DropDownCount = 12
      ItemHeight = 13
      TabOrder = 3
    end
  end
  object gbQuotaCondition: TGroupBox
    Left = 18
    Top = 222
    Width = 325
    Height = 117
    Caption = 'Quota Condition'
    TabOrder = 2
    object cmbWhen: TComboBox
      Left = 16
      Top = 79
      Width = 290
      Height = 22
      Style = csOwnerDrawFixed
      ItemHeight = 16
      TabOrder = 0
      OnDrawItem = cmbWhenDrawItem
      Items.Strings = (
        'Within a day'
        'Within a week'
        'Within a month')
    end
    object leHowMany: TLabeledEdit
      Left = 16
      Top = 42
      Width = 289
      Height = 21
      EditLabel.Width = 185
      EditLabel.Height = 13
      EditLabel.Caption = 'Transferred more than, Mb (megabytes)'
      TabOrder = 1
    end
  end
end